;Modify the rotation angle of a selection of block entities.
;The only input required is the desired
;rotation angle and selection of the blocks to modify.
;
;	AUTHOR:
;		HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
; 
;		All rights reserved without prejudice.
;       Copyright:  8-30-95
;          Edited:  8-30-95
;
(DEFUN C:BRAN ( / tset tsln cntr tent)
(setq toa (*(/(ureal 1 "" "\nBlock Rotation Angle " (if toa (*(/ toa pi)180.000) 0))180.0000)pi))
(prompt "\nSelect Block: ")
(setq tset (ssget '((0 . "INSERT"))))
(if tset
  (progn
    (setq tsln (sslength tset))
    (setq cntr 0)
  )
)
(while
  (if (and (< cntr tsln) tset)
    (setq tent (entget (ssname tset cntr)))
  );if
  (progn
    (setq edtw (entget (cdar tent)))
    (if (eq (cdr (assoc 0 edtw)) "INSERT")
      (progn
        (setq edtw
          (subst (cons 50 toa)
                 (assoc 50 edtw)
                 edtw
          )
        )
        (entmod edtw)
      )
    )
    (setq cntr (1+ cntr))
  )
)
);DEFUN
